use lib qw(D:\Data\Perl\devel\TemplateEnginePrptotype\lib);

use Template5;
use Template5::DTD;
use Template5::Element;
use Template5::TreeBuilder;
use Template5::Creater;
use Template5::XPath;
use Data::Dump;

#------------------------------------------------------------------------------- 
#my $treeBuilder = Template5::TreeBuilder->new();
#my $hHTMLNode = $treeBuilder->parse_file(qw(D:\Data\Perl\devel\TemplateEnginePrptotype\data\testtemplate.html));

#my $dtd     = Template5::DTD->new();
#my $creater = Template5::Element->new();

#my $creater = Template5::Creater->new($dtd, $creater);   
#my $elm = $creater->create_element($hHTMLNode, {'iseditable' => 1, 'templatesdir' => qw(D:\Data\Perl\devel\TemplateEngine)});

#my $xpath = Template5::XPath->new($elm);
#my ($childStruct) = $xpath->find('/1[0]');

#print $childStruct->{'parent'};

my $template = Template5::load(qw(D:\Data\Web\localhost\TemplateEngineClient\Templates\testtemplate.html));
my $xpath = Template5::XPath->new($template->get_root());
my @elms = $xpath->find('/2/ruslan');

print $elms[0]->{'tml'};
